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/****************^ 

/* Distributed Hypermedia Object Embedding (DHOE) sample */ 
/************^ 

/include "protocol_lib.h" /* you can find this in the same 

dirs where libprotocol.a's are */ 



/* X-way to define resources and parse the cmdline args */ typedef 
struct { 

int win; 
int pixmap; 
int pixmap_width; 
int pixmap_height; 
char *dataf ile ; 
} ApplicationData, *ApplicationDataPtr ; 

static XtResource myResources [ ] = { 

{"win", "Win", XtRInt, sizeof (int), 

XtOf f set (ApplicationDataPtr , win) , XtRImmediate, 0}, 
{"pixmap", "Pixmap", XtRInt, sizeof(int), 

XtOff set (ApplicationDataPtr, pixmap), XtRImmediate, 0}, 
{"pixmap_width" , "Pixmap_width" , XtRInt, sizeof (int) , 

XtOff set (ApplicationDataPtr, pixmap width) , XtRImmediate, 



-400}, 
1400}, 



NULL}, 

4 >; 



{"pixmap_height", "Pixmap_height" , XtRInt, sizeof (int) , 
XtOff set (ApplicationDataPtr, pixmap_height) , XtRImmediate, 

{"datafile", "Datafile", XtRString, sizeof (char*) , 
XtOff set (ApplicationDataPtr, datafile) , XtRImmediate, 



\ static XrmOptionDescRec myOptions[] = { 

I {"-win", "*win", XrmoptionSepArg, 0}, 

» {"-pixmap", "*pixmap", XrmoptionSepArg, 0}, 

{ " -pixmap_width" , " *pixmap_width" , XrmoptionSepArg , 0 } , 
{ "-pixmap_height" , "*pixmap_height" , XrmoptionSepArg, 0} , 
{"-datafile", "*datafile", XrmoptionSepArg, NULL}, 

}; 

ApplicationData myAppData; 

void myDraw() 
{ 

/ * do your drawing ... * / 
... 

/* if you draw into your own drawables (myPixmap in this case) 

*/ 

if (myAppData. win) { 

/* copy from myPixmap to the "shared" pixmap */ 
XCopyArea( display, myPixmap, myAppData. pixmap, myGC, 0, 0, 



WIN_WIDTH, 

WIN_HEIGHT, 0, 0) ; 

/* tell Mosaic to update the drawing window */ 
send_client_msg(XtNrefreshNotify, display, myAppData .win) ; 

} 

} 

void myQuit() 
{ 

/* tell Mosaic you are exiting.., */ 
if (myAppData . win) 

send_client_msg(XtNpanelExitNotify, display, 

myAppData. win) ; 

/* Motif way of exiting */ 
XtCloseDisplay (XtDisplay (any widget) ) ; 

exit(l) ; 



r.1main() 

|{ 

■£ Widget app_shell; 

=B ••• 

/* Xtlnitialize does XOpenDisplay , as well as creates a 
^toplevel widget */ 

3 app_shell = Xtlnitialize ("wt", "Wt" , myOptions, 

HxtNumber (myOptions) , &argc, argv) ; 

. . . 

Si /* This func fill up myAppData with the user specified 
Rvalues/default values */ 

,p XtGetApplicationResources (app__shell, SmyAppData, myResources, 
XtNumber (myResources) , NULL, 0) ; 
. • • 

/* if we have an external window to display the image... */ 

if (myAppData. win) { 

XtAddEventHandler ( app_shell , NoEventMask , True , 
handl e_cl i ent_msg , 
NULL) ; 

register_client (app_shell, display) ; 

/* register the func to be called when Mosaic exit */ 
register_clientjmsg_callback(XtNexitNotify, myQuit) ; 

/* tell Mosaic you have started f^ne */ 
send_client_msg ( XtNpanelStartNot if y , display, 
myAppData. win) ; 

} 



XtMainLoop() ; /* Motif's event loop */ 

} 

/**********************************^ 
********** / 
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— P ART-BOUNDARY = .19410131723. ZM2 6058. 1 ibr ary . uc s f . edu 
Encoding: 21 text 

X-Zm-Content-Name : protocol_lib . h 
Content-Type: text/plain ; charset=us-ascii 

a#include <X11/Intrinsic.h> 
Q#include <Xll/StringDef s .h> 
Sj/include <Xll/Xatom.h> 

T/* for Mosaic to get window id */ 

J /define XtNcoxnmWindow "Comm Window" 

L* * 

w /* msgs from Mosaic */ 

\ /define XtNexitNotify "Exit Notify" 

!T /define XtNmapNotify "Map Notify" 

H /define XtNunmapNotify "Unmap Notify" 

^/* msgs to Mosaic */ 

>fl /define XtNref reshNotif y "Refresh Notify" /define 

-PxtNpanelStartNotify "Panel Start Notify" 

/define XtNpanelExitNotify "Panel Exit Notify" 

extern void handle_client_msg() ; extern void register_client() ; 
extern void register_client_msg_callback() ; extern void 
send_client_msg() ; 

— PART-BOUNDARY— .19410131723. ZM2 6058.1 ibr ary .ucsf. edu 
Encoding: 109 text 
X-Zm-Content-Name : protocol_lib . c 
Content-Description: plain text 
Content-Type: text/plain ; charset=us-ascii 

/include "protocol_lib.h" 

/* in order to use this API, the program should: 
(1) Call 



XtAddEventHandler (Widget app_shell , 

NoEventMask, True, handle_client_msg, NULL) ; 

(2) Register its widget (window) , and the remote display 
register_client (Widget w, Display *remote_display) ; 

(3) Register the callback functions for each msg 
register_client_msg_callback (char *msg , void 

( *function_ptr) () ) ; 

(4) The program may also send client_msgs to external 
application by 

send_clinet_msg(char *msg, Display *remote_di splay , Window 
remote_window) ; 
*/ 

typedef void (*FUNPTR)(); 

static FUNPTR handle_quit_msg; static Atom EXIT_NOTIFY, MAP_NOTIFY, 
UNMAP_NOTIFY; 

void register_client (w, remote_display) 
-Widget w; 

^Display *remote_display ; 

K 

Window widget_win = XtWindow(w) ; 
Atom COMM_WINDOW; 

MAP_NOTIFY = XInternAtom (remote_display, XtNmapNotify , 0) ; 
UNMAP_NOTIFY = XInternAtom (remote_display , XtNunmapNotif y , 

,0) ; 

EXIT_NOTIFY = XInternAtom (remote_display , XtNexitNotify , 

J o); 

/* for mosaic to get panel window id */ 

COMM_WINDOW = XInternAtom (remote_di splay, XtNcommWindow, 

0) ; 

XChangeProperty (remote_display, 
Def aultRootWindow(remote_display) , 

COMM_WINDOW, XA_WINDOW, 
3 2 , PropModeReplace , 
(unsigned char*) &widget_win, 1); 
XFlush(remote__display) ; 

} 

void handle_client_msg(w, client_data, event) 
Widget w; caddr_t client_data; 
XEvent *event; 
{ 

static int mapped=l; 

if (event->type 1= ClientMessage) return; 
if (event->xclient.message_type == MAP_NOTIFY) { 
if (! mapped) { 



mapped = 1; 

XMapWindow(XtDisplay (w) , XtWindow(w) ) ; 
XFlush(XtDisplay(w) ) ; 

} 

} 

else if (event->xclient .message_type ~ UNMAP_NOTIFY) { 
if (mapped) { 

mapped =0; 

XIconifyWindow(XtDisplay (w) , XtWindow(w) , 

DefaultScreen(XtDisplay (w) ) ) ; 

XFlush(XtDisplay(w) ) ; 

} 

} 

else if (event->xclient .message_type == EXIT_NOTIFY) { 
(*handle_quit_msg) () ; 

} 

} 

vo id r eg i s t er_c 1 i ent_msg_ca 1 lback ( msg_name , f unc_p tr ) char 
*msg_name ; 
jFUNPTR func_ptr; 

{ 

if (strcmp (msg_name, XtNexitNotify) ==0) { 
handle_quit_msg = func_ptr; 

} 

} 

Ivoid send_client_msg(msg_name, remote_display , remote_window) char 
*msg__name ; 

Display *remote_display ; 
Window remote_window; 

{ 

if ( strcmp (msg_name , XtNref reshNot if y ) ==0 ) { 
XExposeEvent event; 

event. type = Expose; 
event. display = remote_display; 
event. window = remote_window; 
event . send_e vent = True; 

XSendEvent (remote_display , remote_window, True, Expose, 
(XEvent*) & event) ; 
} 

else { 

XClientMessageEvent event; 
Atom MSG_ATOM; 

MSG_AT0M = XInternAtom(remote_display , msg_name, FALSE) ; 

event .display = remote_display; 

event. window = remote_window; 

event. type = ClientMessage; 

event. format =8; 

event. message_type = MSG__AT0M; 

XSendEvent (remote_display, remote_window / True, 




NoEventMask, (XEvent.* ) & event ) ; 

} 1 
XFlush(remote_display) ; 



